-- Written for Daggerfall Unity by Harbinger451
Quest: PROST001
DisplayName: Pay for a Fumble
-- Message panels
QRC:

QuestorOffer:  [1000]
<ce>                        Looking for a good time?
                                     <--->
<ce>                     You want some company, honey?
                                     <--->
<ce>                  Interested in some good, filthy fun?
                                     <--->
<ce>               So... do you fancy a fumble as much as I do?
                                     <--->
<ce>            Do you want to have a go on this fine body of mine?

RefuseQuest:  [1001]
<ce>                        You're missing out, %ra.
                                     <--->
<ce>                          Your loss, not mine.
                                     <--->
<ce>                I'm always here, if you change your mind.
                                     <--->
<ce>              Your too good for the likes of me, I suppose!
                                     <--->
<ce>               Damn! I really need to make some coin today.

AcceptQuest:  [1002]
<ce>                    First we must discuss the small
<ce>                           matter of my fee.
                                     <--->
<ce>                     I must broach the subject of
<ce>                         gold with you first.
                                     <--->
<ce>                      Before going any further, let
<ce>                    us discuss the price of pleasure.
                                     <--->
<ce>                      Now, let us discuss the matter
<ce>                   of my payment before I pleasure you.

QuestFail:  [1003]
<ce>                       I ain't no charity, honey.
<ce>                               Clear off!
                                     <--->
<ce>                       No money, no fun, sweetie.
<ce>                         Now, be gone with you!
                                     <--->
<ce>                        Sorry, %ra. Next time,
<ce>                   be sure to bring the right money.
                                     <--->
<ce>                  Hey, %ra! Who are you trying to fool?
<ce>                           No money, no fun.

QuestComplete:  [1004]
<ce>                          Thanks for the gold!
<ce>             It was a pleasure doing business with you, %pcf. 
<ce>                Tell all your friends I'm value for money.
                                     <--->
<ce>                    You seemed to enjoy yourself, %pcf.
<ce>                        Please, come see me again
<ce>                      when you have some spare coin.
                                     <--->
<ce>              Well, that seemed to get a load off your mind.
<ce>                   You know where to find me if you have
<ce>              some extra money burning a hole in your purse.
                                     <--->
<ce>                  Well, that was quite the experience.
<ce>           I'll treasure it almost as much as the money you paid.

RumorsPostsuccess:  [1007]
Some lucky %ra had a real good time with _qgiver_ recently.
<--->
_qgiver_ has been distracted lately. Fallen hard for an attractive client, apparently.
<--->
_qgiver_ is looking for a particular %ra freebooter. Rocked %g3 world it seems.

QuestorPostsuccess:  [1008]
Oh, it's you, %pcf. I hope you enjoyed our little assignation, I know I did.
<--->
I can't stop singing your praises, %pcf. I think I enjoyed it almost as much as you did.

QuestLogEntry:  [1010]
%qdt
_qgiver_ in __qgiver_ 
of ___qgiver_ wants 100 gold for a fumble.

Message:  1011
%qdt:
I had a very enjoyable fumble with _qgiver_ in __qgiver_ 
of ___qgiver_. It only cost me 100 gold pieces.
Regrettably, I now have an ich I can't scratch in polite company.

Message:  1012
<ce>                    Time of your life, only 100 gold.
                                     <--->
<ce>                   Special price, just 100 gold pieces.
                                     <--->
<ce>                    A thorough fool around for a 100?
                                     <--->
<ce>            I'm a bargain indeed, it'll only cost you 100 coins?

Message:  1013
<ce>                        Well fine and dandy, %pcf. 
<ce>                         I'm ready when you are.
                                     <--->
<ce>                        That's the spirit, %pcf!
<ce>                            Make your move.
                                     <--->
<ce>                      I'm ready and waiting, %pcf.
<ce>                     The anticipation is killing me!
                                     <--->
<ce>                      Alright, %pcf, lets do this.
<ce>                         Don't keep me hanging!

Message:  1014
<ce>             You didn't strike me as the penny pinching kind.
<ce>                        Oh well, maybe next time.
                                     <--->
<ce>               I wouldn't have pegged you as cheap, %pcf.
<ce>                I'm always here if you change your mind.
                                     <--->
<ce>                     So you don't think I'm worth it?
<ce>                         You offend me, %pcf.
                                     <--->
<ce>                           Damn and blast!
<ce>             I really need to scrape up some money somewhere.

Message:  1015
<ce>                          Now, lets get down to
<ce>                        the business of pleasure.
<ce>                                  ...
<ce>                       Touch me. Oh, that's good.
<ce>                      Caress me. Yes, that's right.
<ce>                                  ...
<ce>                           There. Yes, there!
<ce>                                  ...
<ce>                           Kiss me! Love me!
<ce>                                  ...
<ce>                                 Ooooh!
<ce>                                  ...
<ce>                       By the gods, that was good!
                                     <--->
<ce>                          Now, lets get to work
<ce>                        with some serious pleasure.
<ce>                                  ...
<ce>                      Take me. Oh, yes! You know how.
<ce>                     Rock me, baby. Yes, that's right.
<ce>                                  ...
<ce>                           Caress me! Feel me!
<ce>                                  ...
<ce>                         Keep going! Don't stop!
<ce>                                  ...
<ce>                               Ooooh, YES!
<ce>                                  ...
<ce>                       By Prince Sanguine himself,
<ce>                 you certainly have the knack, my friend!

Message:  1016
%qdt:
I had a very enjoyable fumble with _qgiver_ in __qgiver_ 
of ___qgiver_. It only cost me 100 gold pieces.

QBN:

Person _qgiver_ group Questor

Clock _paywindow_ 05:00

-- Quest start-up:
    start timer _paywindow_
    prompt 1012 yes _pcpay_ no _pctight_
    log 1010 step 0 

_pcpay_ task:
    say 1013
    pay 100 money do _pcpaid_ otherwise do _pcpoor_

_pctight_ task:
    say 1014
    change repute with _qgiver_ by -2
    remove log step 0
    end quest

_paywindow_ task:
    remove log step 0
    end quest

_pcpaid_ task:
    clear _pcpay_
    pick one of _pcinfect1in3_ _pcclear_ _pcclear_

_pcinfect1in3_ task:
    pick one of _pcinfect1in9_ _pcclear_ _pcclear_

_pcinfect1in9_ task:
    pick one of _pcinfect1in27_ _pcclear_ _pcclear_

_pcinfect1in27_ task:
    pick one of _pox_ _pox_ _leprosy_ _plague_

_pox_ task:
    say 1015
    train pc Streetwise
    give pc nothing
    remove log step 0
    log 1011 step 1
    make pc ill with Witches'_Pox
    end quest

_leprosy_ task:
    say 1015
    train pc Streetwise
    give pc nothing
    remove log step 0
    log 1011 step 1
    make pc ill with Leprosy
    end quest

_plague_ task:
    say 1015
    train pc Streetwise
    give pc nothing
    remove log step 0
    log 1011 step 1
    make pc ill with Plague
    end quest

_pcclear_ task:
    say 1015
    train pc Streetwise
    give pc nothing
    remove log step 0
    log 1016 step 1
    end quest

_pcpoor_ task:
    say 1003
    remove log step 0
    end quest

